home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 01 (1991-01)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 12, No. 01 (1991-01)(MindCraft Publishing)(Side A).po
/
SLIDE.BIN.S
< prev
next >
Wrap
Text File
|
1996-12-24
|
1KB
|
57 lines
*-----------------------------------*
* GS.GRAPHICS GALLERY SLIDE SHOW *
* MISCELLANEOUS ROUTINES *
* *
* by Peter Stubbs *
*-----------------------------------*
* MERLIN 816 ASSEMBLER *
*-----------------------------------*
* Copyright (C) 1991 *
* MindCraft Publ. Corp. *
*-----------------------------------*
MOVE = $13B0 ;Load address for PIC.MOVE
SAVE = $EB
* STORE A ZERO AT $1400 AND USE MONITOR MOVE
* ROUTINE TO STORE ZEROS AT $1400-$9400
ORG $1370
BLANK LDY #$94
STY $3F
LDY #$14
STY $3D
STY $43
LDY #1
STY $42
DEY
STY $1400
STY $3C
STY $3E
JSR $FE2C ;Do monitor move
JSR MOVE ;Move to Super Res screen
RTS ; for an all black picture
* Display super res screen with black border
YES LDA $C029
STA SAVE
ORA #$C0 ;Super res and linear on
STA $C029
LDA $C034
STA SAVE+1
AND #$F0 ;Make a black border
STA $C034
RTS
* Return to original screen display state
NO LDA SAVE
STA $C029
LDA SAVE+1
STA $C034
RTS
LST OFF